home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / MERGEDR.PAS < prev    next >
Pascal/Delphi Source File  |  1986-12-04  |  300b  |  12 lines
  1. PROCEDURE MERGEDR(VAR KOD:INTEGER);
  2.     VAR
  3.      ECODE,CODE:INTEGER;
  4.     BEGIN
  5.      KOD := 0;
  6.      GETDIR(TP,CODE);
  7.      ECODE := 0;
  8.      IF CODE = 0 THEN
  9.         GETMRG(ECODE)
  10.        ELSE  KOD := 1;
  11.      IF ECODE <> 0 THEN KOD := ECODE;    (* NO FILE NAME ENTERED WITH getnam *)
  12.     END;